home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / l / lernen / vokabel / hd_inst.dat (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1996-11-17  |  1.1 KB  |  37 lines
  1. CLS
  2. PRINT
  3. PRINT "                 INSTALLIEREN VON VOKUS AUF EINER FESTPLATTE"
  4. PRINT "                 ==========================================="
  5. PRINT "                    hd_instal (c) 1991 by thorsten liese"
  6. PRINT
  7. PRINT
  8. PRINT
  9. PRINT "           *******  Bitte lesen Sie zuerst 'HD_INFO.DOC' ! *******"
  10. ALERT 2,"Haben Sie den Vokus-Ordner|komplett auf der Festplatte|(oder in einem neuen Unterver-|zeichnis auf der Disk) ?",0," Ja | Nein ",a%
  11. IF a%=2
  12.   QUIT
  13. ENDIF
  14. PRINT
  15. a:
  16. PRINT
  17. INPUT " Neuer Pfad -->",pfad$
  18. ON ERROR GOSUB fehl
  19. OPEN "U",#1,pfad$+"VOKUS\VOKUS.PRG"
  20. SEEK #1,32
  21. PRINT #1,pfad$+"VOKUS\TITEL.GFA";CHR$(0);
  22. CLOSE #1
  23. PRINT
  24. PRINT " VOKUS ist installiert.   Tast drücken"
  25. REPEAT
  26. UNTIL LEN(INKEY$)
  27. QUIT
  28. PROCEDURE fehl
  29.   ~FORM_ALERT(1,ERR$(ERR))
  30.   ALERT 0,"               ",1,"Nochmal|Quit",b%
  31.   IF b%=2
  32.     QUIT
  33.   ELSE
  34.     RESUME a
  35.   ENDIF
  36. RETURN
  37.